Zmena Aliasu za behu
Otázka od: Dalibor Faltynek
27. 5. 2004 11:51
Ahoj,
proc tohle nefunguje? Po zmene cesty a znovuotevreni dotazu se ukaze stejna
tabulka jako pred zmenou. Ostatne je to podle prikladu 502 v 1001 tricich.
(D5ent, databaze paradox).
procedure TForm1.ComboBox1Click(Sender: TObject);
var AParams: TstringList;
begin
AParams:=TStringList.Create;
try
query1.Close;
Smetr.GetAliasParams('Metrologie', AParams);
AParams.Clear;
AParams.Add('PATH:=M:\7200');
Smetr.ModifyAlias('Metrologie', AParams);
SMetr.SaveConfigFile;
application.ProcessMessages;
query1.open;
finally
AParams.Free;
end;
end;
Diky Dalik.
Odpovedá: Dalibor Faltynek
27. 5. 2004 12:06
No jo, asi musim jeste taky zavrit a otevrit session.
Dalik.
Odpovedá: Dalibor Faltynek
27. 5. 2004 12:15
Kdepak, nefunguje to. Podarilo se to jenom tak, ze jsem alias zrusil, pak
vytvoril znova s jinou cestou, pak zavrel a otevrel session a nakonec
otevrel dotaz. Komisch.
DF.
----- Original Message -----
From: "Dalibor Faltynek" <dalibor.faltynek@orgrez.cz>
To: <delphi-l@clexpert.cz>
Sent: Thursday, May 27, 2004 1:03 PM
Subject: Re: Zmena Aliasu za behu
> No jo, asi musim jeste taky zavrit a otevrit session.
> Dalik.
>
>
>
>
>
Odpovedá: Dalibor
27. 5. 2004 12:45
Pridej tam jeste
Session.ConfigMode := cmPersistent;
tedy
SMetr.ConfigMode := cmPersistent;
----- Original Message -----
From: "Dalibor Faltynek" <dalibor.faltynek@orgrez.cz>
To: <delphi-l@clexpert.cz>
Sent: Thursday, May 27, 2004 12:51 PM
Subject: Zmena Aliasu za behu
> Ahoj,
> proc tohle nefunguje? Po zmene cesty a znovuotevreni dotazu se ukaze
stejna
> tabulka jako pred zmenou. Ostatne je to podle prikladu 502 v 1001 tricich.
> (D5ent, databaze paradox).
>
> procedure TForm1.ComboBox1Click(Sender: TObject);
> var AParams: TstringList;
> begin
> AParams:=TStringList.Create;
> try
> query1.Close;
> Smetr.GetAliasParams('Metrologie', AParams);
> AParams.Clear;
> AParams.Add('PATH:=M:\7200');
> Smetr.ModifyAlias('Metrologie', AParams);
> SMetr.SaveConfigFile;
> application.ProcessMessages;
> query1.open;
> finally
> AParams.Free;
> end;
> end;
>
> Diky Dalik.
>
>
Odpovedá: Dalibor Faltynek
27. 5. 2004 13:29
Diky za odpoved, ale nefunguje to. Zprovoznil jsem to jenom takto a chodi to
spolehlive:
Dalik.
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
query1.Close;
if Session1.IsAlias('Metrologie') then
begin
Session1.DeleteAlias('Metrologie');
application.ProcessMessages;
end;
Session1.Close;
Session1.AddStandardAlias('Metrologie', 'M:\' + combobox1.text, 'PARADOX');
Session1.Open;
query1.open;
end;
> Pridej tam jeste
>
> Session.ConfigMode := cmPersistent;